home *** CD-ROM | disk | FTP | other *** search
- option title "Display/Modify custom file properties"
-
- goto __EOF
-
- @@create_propdlg
- if (GuiExists('dlgProperties'))
- GuiDestroy('dlgProperties')
- endif
-
- GuiCreate('FORM', 'dlgProperties', 'Left', 366, 'Top', 213, 'BorderStyle', GUI_BORDER_DIALOG, 'Caption', 'Custom file properties', 'ClientHeight', 203, 'ClientWidth', 448, 'Position', GUI_FORMPOS_SCREENCENTER)
-
- GuiCreate('STATIC', 'dlgProperties.Label1', 'Left', 12, 'Top', 8,'Width', 87, 'Height', 13, 'Caption', 'Custom properties:')
-
- GuiCreate('LISTBOX', 'dlgProperties.Lbprops', 'Left', 12, 'Top', 28,'Width', 425, 'Height', 129, 'OnClick', 'lbclick')
-
- GuiCreate('BUTTON', 'dlgProperties.btnModify', 'Left',12, 'Top', 168,'Width', 75, 'Height', 25, 'Caption', 'Modify', 'Enabled', 0, 'OnClick', 'btnModify_Click')
-
- GuiCreate('BUTTON', 'dlgProperties.btnRemove', 'Left', 92, 'Top', 168,'Width', 75, 'Height', 25, 'Caption', 'Remove', 'Enabled', 0, 'OnClick', 'btnRemove_Click')
-
- GuiCreate('BUTTON', 'dlgProperties.btnAdd', 'Left', 172, 'Top', 168,'Width',75, 'Height', 25, 'Caption', 'Add', 'OnClick', 'btnAdd_Click')
-
-
- GuiCreate('BUTTON', 'dlgProperties.btnClose', 'Left', 364, 'Top', 168,'Width', 75, 'Height', 25, 'Caption', 'Close', 'ModalResult', IDOK)
-
- return
-
- DEF __STR_1 'Edit custom property'
-
-
- @@create_itemdlg
- if (GuiExists('dlgItem'))
- GuiDestroy('dlgItem')
- endif
-
-
- GuiCreate('FORM', 'dlgItem', 'BorderStyle', GUI_BORDER_DIALOG, 'Caption', 'Add a custom file property', 'ClientHeight', 130, 'ClientWidth', 266, 'Position', GUI_FORMPOS_SCREENCENTER)
-
- GuiCreate('STATIC', 'dlgItem.Label1', 'Left', 8, 'Top', 12, 'Caption', 'Property Name:')
-
- GuiCreate('STATIC', 'dlgItem.Label2', 'Left', 8, 'Top', 40, 'Caption', 'Property Value:')
-
- GuiCreate('EDIT', 'dlgItem.edName', 'Left', 88, 'Top', 8, 'Width', 165, 'Text', '', 'OnChange', 'dlgItem_EditChange')
-
- GuiCreate('EDIT', 'dlgItem.edValue', 'Left', 88, 'Top', 36, 'Width', 165, 'Text', '', 'OnChange', 'dlgItem_EditChange')
-
- GuiCreate('CHECKBOX', 'dlgItem.cbNumber', 'Left',88, 'Top', 68,'Width', 165, 'Caption', 'Numerical property', 'OnClick', 'dlgItem_EditChange')
-
- GuiCreate('BUTTON', 'dlgItem.btnOK', 'Left', 88, 'Top', 96,'Width', 75, 'Height', 25, 'Caption', 'OK', 'Enabled', 0, 'Default', 1, 'ModalResult', IDOK)
-
- GuiCreate('BUTTON', 'dlgItem.btnCancel', 'Left', 180, 'Top', 96,'Width',75, 'Height', 25, 'Caption', 'Cancel', 'Cancel', 1, 'ModalResult', IDCANCEL)
-
-
-
- return
-
-
- @@__EOF
-